home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programmer Power Tools
/
Programmer Power Tools.iso
/
progjrn
/
pj_6_1.arc
/
WHETLIN.ARC
/
SECONDI.FOR
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
NeXTSTEP
RISC OS/Acorn
UTF-8
Wrap
Text File
|
1987-12-22
|
242 b
|
12 lines
* a TIME function for INTEL FORTRAN86 and DRI Fortran
*
* Author: M. Steven Baker
* Date: November 22, 1986
*
real function second()
integer*4 TIME18
external TIME18
second = TIME18()/18.2
end